10 REM  PROBLEM #23-2 :
20 REM    ROOTING ROUTINE
30 REM  SOLUTION BY THOMSON FUNG
40 REM
50 PRINT"TO EXIT, TYPE A # < 1"
60 INPUT"ENTER A # FROM 1 TO 65535";D
70 IF D<0 THEN END
80 X=100 : REM ANY INITIAL VALUE > 0
90 FOR I=1 TO 10
100 X=.5*(X+D/X)
110 NEXT I
120 PRINT"SQUARE ROOT OF"D"="INT(X+.5)
130 PRINT : PRINT : GOTO 50